0 REM"            ANDREW MANIKAS
1 [143]"
2 REM"
3 [143]"----------------------------------------
4 REM"
5 [153][199](142);[199](8):[153]"LOAD";:[151]54296,0:[151]53281,5
6 [153]"SYSLOADING MACHINE LANGUAGE FOR CAVERN!"
10 [139]([194](53280)[175]15)[179][177]5[167][151]53280,5:[147]"CAVERN.ML",8,1
11 [151]54295,0:[151]54293,0:[151]54294,0
12 [151]52095,0:[151]51547,0
20 [151]53280,0:[151]53281,0:[153]"LOAD";
21 [151]54273,0:[151]54272,0:[151]54280,0:[151]54279,0:[151]54287,0:[151]54286,0
22 [151]53269,1:[151]53248,0:[151]53249,0:[151]2040,200:[151]53248[170]39,7
23 [151]53275,1:[151]53277,0:[151]53276,0:[151]53271,0
24 [151]53285,14:[151]53286,8:[140]:[129]J[178]200[172]64[164]202[172]64[170]63:[135]A:[151]J,A:[130]
25 [151]54296,15:[151]54278,15:[151]54278[170]7,12:[151]54278[170]14,9
26 [151]54277,140:[151]54277[170]7,140:[151]54277[170]14,140
30 [153]"DEF (null)(null)(null)   (null)(null)(null) CLOSE(null)   (null)CLOSE(null)(null)(null)(null)(null)CLOSE(null)(null)(null)(null) CLOSE(null)   (null)CLOSE(null)(null)"
31 [153]"SYS(null)   (null) (null)   (null)CLOSE(null)   (null)CLOSE(null)    CLOSE(null)   (null)CLOSE(null)(null)  (null)CLOSE(null)(null)"
32 [153]"(null)     (null)(null)(null)(null)(null)CLOSE(null)   (null)CLOSE(null)(null)(null)(null) CLOSE(null)(null)(null)(null)(null)CLOSE(null) (null) (null)CLOSE(null)(null)"
33 [153]"(null)   (null) (null)   (null)CLOSECLOSE(null) (null) CLOSE(null)    CLOSE(null)  (null) CLOSE(null)  (null)(null)CLOSE  "
34 [153]"CLR (null)(null)(null)  (null)   (null)CLOSE CLOSE(null)  CLOSE(null)(null)(null)(null)(null)CLOSE(null)   (null)CLOSE(null)   (null)CLOSE(null)(null)"
37 [151]54276,32:[151]54276[170]7,16:[151]54276[170]14,32
40 [129]J[178]1[164]500:[130]
50 [153]"";
60 [153]"DEF(null)STR$RIGHT$RIGHT$CLOSE(null)RIGHT$STR$RIGHT$RIGHT$STR$RIGHT$RIGHT$STR$RIGHT$RIGHT$CLOSE(null)"
61 [153]"-ASC<LEFT$(null)CHR$LEFT$CLOSELEFT$-ASC(null)-ASCCLOSELEFT$PEEKCHR$"
62 [153]"(null)CLOSEMID$(null)CLOSEMID$(null)ASC(null)(null)CLOSE(null)(null)ASC(null)MID$>(null)"
63 [151]54276,33:[151]54273,34:[151]54272,75:[129]P[178]1[164]400:[130]
70 [153]"LIST         (null)STR$RIGHT$(null)=RIGHT$RIGHT$STR$RIGHT$RIGHT$CLOSE(null)RIGHT$STR$RIGHT$RIGHT$CLOSE(null)"
71 [153]"         MID$ASCRIGHT$ LEFT$ -ASC LEFT$ CHR$-ASCCLOSELEFT$(null)CHR$"
72 [153]"         MID$ASC(null) (null) (null)ASC(null)MID$ASC(null)(null)ASC(null)(null)CLOSEMID$"
73 [151]54283,17:[151]54280,43:[151]54279,52:[129]P[178]1[164]400:[130]
80 [153]"CONT                  RIGHT$RIGHT$RIGHT$(null)STR$RIGHT$RIGHT$CLOSE(null)(null)=RIGHT$RIGHT$(null)CLOSE(null)STR$RIGHT$(null)STR$RIGHT$"
81 [153]"                  LEFT$LEFT$LEFT$-ASC<LEFT$(null)CHR$ LEFT$ -(null)CLOSE-ASC<MID$ASCRIGHT$"
82 [153]"                  (null)CLOSEMID$(null) MID$(null)CLOSEMID$MID$>(null)(null)CLOSE(null)(null) MID$MID$ASC(null)"
83 [151]54290,33:[151]54287,51:[151]54286,97:[129]P[178]1[164]2500:[130]
85 [151]54273,0:[151]54280,0:[151]54287,0:[151]54286,0:[151]54279,0:[151]54272,0
90 [153]"LOAD";[199](14);[199](8)"OPENRIGHT$(null)(null)(null)(null)(null)LEN(null)RIGHT$(null)(null)(null)CLOSEASC(null)(null)CLOSE(null)(null)ATN(null)RIGHT$(null)CHR$CLOSELENATN(null)VAL(null)(null)!:":[129]J[178]1[164]40
95 [151]54276,33:[153]"CLRTAN";:[151]54273,J[172]4:[151]54272,J[172]5:[151]54276,32:[130]
100 [153]"SYS":[151]54296,0:[153]:[153]"  (null)OVE YOUR SHIP HORIZONTALLY BY PUSHING"
110 [153]"THE JOYSTICK((null)(null)(null)(null) #2) LEFT OR RIGHT."
120 [153]:[153]"(null)OUR SHIP WILL AUTOMATICALLY SPEED UP"
130 [153]"WHILE IT IS IS FLYING DOWN THE CAVERN."
140 [153]:[153]"(null)HE JOYSTICK BUTTON ACTS AS A PAUSE"
150 [153]"BUTTON (PUSH FOR (null)(null)...AGAIN FOR (null)ASCASC)."
160 [153]"(null)OU GET POINTS FOR HOW FAR YOU GO"
165 [151]54273,0:[151]54272,0:[151]54280,0:[151]54279,0:[151]54287,0:[151]54286,0
170 [153]"AND FOR YOUR SHIP'S STARTING SPEED."
171 [151]53248[170]16,0:[151]53248,0
175 [143] CLASS OF '84
180 [153]"PRINT(null)HAT IS YOUR SKILL LEVEL(0-9 HARD)?"
181 [161]T$:[139]T$[179][177]""[167]181
182 [161]T$:[139]T$[178]""[167]183
183 [139]T$[178]"0"[176][197](T$)[177]0[167]186
184 [137]182
185 [153]:[153]"     (null)(null)VAL(null)(null) MID$(null)(null)(null)(null)RIGHT$LEN(null)CLOSEPEEK(null)(null)(null)(null)(null)CLOSE(null)(null)CLOSE(null)(null)ATN(null).WAITONON":[137]190
186 SP[178]11[171][197](T$):[151]821,SP[172]23:[153]"OPENATNCTUAL SPEED:";255[171](SP[172]23);"KM/MIN."
187 [141]1000:[137]185
190 K[178][194](56320)[175]16:[139]K[178]0[167]190
200 K[178][194](56320)[175]16:[139]K[178]16[167]200
210 [153][199](142);[199](8)
220 [151]646,1:[151]53249,188:[151]53248,176
230 TI$[178]"000000":[158]49152:[151]53275,1:[151]54294,0:[151]54296,15:[151]53264,0
231 I[178][194](251)[170]256[172][194](252):[151]I,90:[151]I[170]54313,10:[151]54295,0
232 [151]I[170]1,64:[151]I[171]1,64:[151]I[170]54273,10:[151]I[170]54271,10:[151]I[171]40,66
233 [151]I[170]54232,10:[151]I[170]40,66:[151]I[170]54312,10:[151]I[171]39,78:[151]I[170]54233,10
234 [151]I[171]41,77:[151]I[170]54231,10:[151]I[170]39,78:[151]I[170]41,77:[151]I[170]54311,10
235 [151]54296,15:[151]54278,1:[151]54277,57:[151]54276,32:[151]54276,33
236 [151]54285,4:[151]54284,37:[151]54283,16:[151]54283,17:[129]J[178]210[164]30[169][171]8
237 [151]54273,J:[151]54272,J[173]1.5:[151]54276,33:[151]54280,99[171]J[173]3:[151]54279,99[171]J[173]3
238 [151]54283,17:[151]I[170]54272,[181]([187](1)[172]15)[170]1:[151]54276,32:[151]54283,16
239 [130]:[151]I[170]54272,7:[151]54296,0:[151]53248,0
240 MILE[178]256[172][194](688)[170][194](687):MILE[178]MILE[173]256:TL[178]TI:[153][199](14);[199](8);
241 [153]"LOADLIST(null)VAL(null)(null)(null)(null)(null)CLOSE(null)ASCCLOSE(null)(null)(null)(null) ASC(null)(null)RIGHT$(null)CHR$:"
242 [151]54296,15:[129]J[178]1[164]40:[151]54276,32:[151]54273,255[171]J[172]5:[151]54272,J[172]2
243 [151]54276,33:[153]"TAN";:[130]:[151]54296,0:[151]53248,0
250 [153]"PRINT(null)OU HAVE GONE A DISTANCE OF";[181](MILE[172]100)[173]100
260 [153]"(null)ATN(null)RIGHT$(null)RIGHT$(null)VAL(null) IN";TL[173]1000;"ATN(null)(null)-(null)RIGHT$(null)VAL UNITS!"
265 [153]:[153]"(null)OUR STARTING SPEED WAS";255[171](SP[172]23);"KM/MIN."
266 [153]"(null)OUR SHIP, BEFORE YOU HIT THE WALLS OF"
267 [153]"THE WINDING CAVERN, REACHED A SPEED":MI[178]MI[172]256:MI[178]MI[173]100
268 [153]"OF";255[171][194](821);"KM/MIN."
270 [153]"(null)HIS GIVES YOU A SCORE OF:";
280 SC[178](MI[172]21)[173](SP[173]2[170]1):SC[178][181](SC[172][255][174]2)
290 [153]SC
300 [153]:[153]:[153]"CONT(null)OULD YOU LIKE TO PLAY AGAIN((null)/(null))?"
310 [161]T$:[139]T$[179][177]""[167]310
320 [161]T$:[139]T$[178]""[167]320
330 [139]T$[178]"Y"[167][153]"LOAD";[199](9);[199](142):[156]:[137]360
340 [139]T$[179][177]"N"[167]320
350 [156]:[158] 64738
360 [153]"LOADSTOPLOAD";[199](34)"CAVERN"[199](34)",8"
370 [153]"RUN":[151]198,0:[151]198,3:[151]632,13:[151]633,13:[151]634,13:[128]
400 [131]0,0,0
401 [131]0,0,0
402 [131]0,0,0
403 [131]0,0,0
404 [131]0,0,0
405 [131]0,24,0
406 [131]0,24,0
407 [131]0,60,0
408 [131]0,60,0
409 [131]0,126,0
410 [131]0,255,0
411 [131]0,255,0
412 [131]0,153,0
413 [131]0,129,0
414 [131]0,129,0
415 [131]0,0,0
416 [131]0,0,0
417 [131]0,0,0
418 [131]0,0,0
419 [131]0,0,0
420 [131]0,0,0,0
500 [131]0,0,0
501 [131]0,0,0
502 [131]0,0,0
503 [131]0,0,0
504 [131]0,0,0
505 [131]0,3,0
506 [131]0,6,0
507 [131]0,30,0
508 [131]0,62,0
509 [131]0,254,0
510 [131]1,254,0
511 [131]1,126,0
512 [131]2,108,0
513 [131]0,8,0
514 [131]0,16,0
515 [131]0,0,0
516 [131]0,0,0
517 [131]0,0,0
518 [131]0,0,0
519 [131]0,0,0
520 [131]0,0,0,0
600 [131]0,0,0
601 [131]0,0,0
602 [131]0,0,0
603 [131]0,0,0
604 [131]0,0,0
605 [131]0,192,0
606 [131]0,96,0
607 [131]0,120,0
608 [131]0,124,0
609 [131]0,127,0
610 [131]0,127,128
611 [131]0,126,128
612 [131]0,118,64
613 [131]0,16,0
614 [131]0,8,0
615 [131]0,0,0
616 [131]0,0,0
617 [131]0,0,0
618 [131]0,0,0
619 [131]0,0,0
620 [131]0,0,0,0
1000 [153]:[153]"CONT(null)OULD YOU LIKE BACKGROUND MUSIC((null)/(null))?"
1010 [161]T$:[139]T$[179][177]""[167]1010
1020 [161]T$:[139]T$[178]""[167]1020
1030 [139]T$[178]"Y"[167][151]697,1:[142]
1040 [151]697,0:[139]T$[179][177]"N"[167]1020
1050 [142]